﻿Imports System.IO

Public Class log

    Public Shared Sub WriteLog(ByVal Msg As String)
        
        Dim strFile = Path.Combine(Application.StartupPath,"log.dat") '获取或设置包含该应用程序的目录的名称。也就是程序的debug\log
        Dim SW As System.IO.StreamWriter
        SW = New System.IO.StreamWriter(strFile, True) '用默认编码和缓冲区大小，为指定的文件初始化 StreamWriter 类的一个新实例。 如果该文件存在，则可以将其覆盖或向其追加。 如果该文件不存在，则此构造函数将创建一个新文件
        SW.WriteLine(Msg)  '输出并换行
        SW.Flush()  '刷新
        SW.Close()  '关闭输出流


    End Sub


End Class